perm filename DIFFER[P,BGB] blob sn#009288 filedate 1974-04-16 generic text, type T, neo UTF8
00100	Differences between MAC and STANFORD LISP
00200	
00300	1)  Translation fixes
00400	2)  Code fixes
00500	3)  System code replacements
00600	
00700	1)  Translation fixes:
00800		a) generalized LAMBDA replaced by (PROG () S1 S2 ... (RETURN Sn))
00900		b) QUOTE character ' replaced by @
01000		c) PLANNER macro characters replace by functional equivalent
01100			(as defined by function THREAD)
01200	
01300	2)  Code fixes:
01400		a) RETURN from ERRSET changed to RETURN of an ERRSET in THERT
01500		b) PUTPROP1 not defined the same way
01600		c) top level errfcn does not work as indicated
01700	
01800	3)  System code replacement:
01900		a) Compiler modifications in FIXUP.COM
02000		b) Interpreter modifications in CONVRT.LSP (CONVRT.LAP)
02100	
02200	aids:
02300	(DEFPROP THEOREM T SWAPIT)
02400	
02500	defined:
02600	THERT
02700	DECLARE
02800	MAPCAR
02900	ERT
03000	ASSOC
03100	PAGEBPORG
03200	GENPREFIX
03300	MIN
03400	MAX
03500	RANDOM
03600	DEFUN
03700	SSTATUS
03800	AND
03900	OR
04000	MAPC
04100	MAPCAN
04200	RESTART
04300	MEMQ
04400	MEMBER
04500	APPLY
04600	TH
     

00100	SYSTEM CODE REPLACEMENTS
00200	
00300	declared:
00400	DIFFERENCE	as	*DIF
00500	SASSQ		"	SASSOC
00600	MAPC#		"	MAPC
00700	MAPCAR#		"	MAPCAR
00800	ASSQ		"	ASSOC
00900	PUTPROP1	"	PUTPROP
01000	APPLY#		"	APPLY
01100	[NOTE:	TRACE1 uses APPLY which is redefined for u-PLANNER.  Change
01200	 APPLY to APPLY# in TRACE1.]
01300	
01400	macros:
01500	THPUSH
01600	THTRACE
01700	
01800	setq's:
01900	THTRACE ← NIL
02000	PURE ← NIL
02100	ERRLIST ← NIL